home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / win_os2.swg / 0033_Windows Detection.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  320b  |  18 lines
  1.  
  2. Function RunningUnderMSWindows : boolean; assembler;
  3. Asm
  4.   MOV AX,1600h
  5.   INT 2Fh
  6. End; { RunningUnderMSWindows }
  7.  
  8. or
  9.  
  10. Function RunningUnderMSWindows : boolean;
  11. var Regs : registers;
  12. Begin
  13.   Regs.AX := $1600;
  14.   Intr($2F, Regs);
  15.   RunningUnderMSWindows := Boolean(Regs.AL)
  16. End; { RunningUnderWindows }
  17.  
  18.